home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)ti.d64 / ghoul colours (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  584b  |  34 lines
  1. 100 DIM S(15): C$="[157],": PRINT "[147]";
  2. 110 :
  3. 120 FOR I=0 TO 15
  4. 130 S(I)=PEEK(49155+I)
  5. 140 NEXT
  6. 150 :
  7. 160 READ A$
  8. 170 PRINT TAB(20-LEN(A$)/2) A$
  9. 180 PRINT "[146]" TAB(13) "DOGS " S(0);
  10. 190 FOR I=1 TO 5: PRINT C$ S(I);: NEXT
  11. 200 PRINT: PRINT "[145]" TAB(17);
  12. 210 INPUT S(0),S(1),S(2),S(3),S(4),S(5)
  13. 220 :
  14. 230 FOR I=6 TO 15
  15. 240 READ A$: PRINT
  16. 250 PRINT TAB(17-LEN(A$)) A$ " " S(I)
  17. 260 PRINT "[145]" TAB(17);
  18. 270 INPUT S(I)
  19. 280 NEXT
  20. 290 :
  21. 300 FOR I=0 TO 15
  22. 310 POKE 49155+I,S(I)
  23. 320 NEXT
  24. 330 :
  25. 340 PRINT "[145][145]": END
  26. 350 :
  27. 360 DATA GHOUL DOG COLOR CHANGE PROGRAM
  28. 370 DATA CAT,LASER BEAM
  29. 380 DATA SPRITE MULTICOLOR
  30. 390 DATA ALTERNATE CAT,FRAME
  31. 400 DATA GAME BACKGROUND
  32. 410 DATA TARGETS,BONUS TARGETS
  33. 420 DATA TEXT,TEXT BACKGROUND
  34.